e = 5.8 (slider from 0 to 10, step 0.1)
r = 6 (slider from 0 to 8, step 0.5)
Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, 6)
v1 = Vector((0, -2, 0), (0, 7, 0))
c_1 = 0
c_2 = 0
c_3 = 0
c_4 = 0
c_5 = 0
c_6 = 0
c_7 = 0
u = Vector((0, 0, 0), (7, 0, 0))
f = 0.14 (slider from 0 to 1.5, step 0.01)
L1 = Sequence((r * cos(a / e), r * sin(a / e), a / e), a, 0, 12 * e)
w1 = Vector((0, 0, 0), (0, 0, 12))
L2 = Sequence((r * cos(a / e - f), r * sin(a / e - f), a / e), a, 0, Length[L1])
L3 = Sequence((0, 0, a / e), a, 0, Length[L1])
L4 = Sequence(Polygon[Element[L1, n], Element[L2, n], Element[L3, n]], n, 1, Length[L1])